home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / secured.fr_ / secured.fr
Text File  |  1995-05-07  |  5KB  |  173 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSecured 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Access Secured Database"
  5.    ClientHeight    =   2148
  6.    ClientLeft      =   1224
  7.    ClientTop       =   1632
  8.    ClientWidth     =   4692
  9.    Height          =   2592
  10.    Left            =   1140
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2148
  15.    ScaleWidth      =   4692
  16.    Top             =   1272
  17.    Width           =   4860
  18.    Begin VB.CommandButton cmdLogin 
  19.       Caption         =   "Connect to &DB"
  20.       Height          =   312
  21.       Left            =   2400
  22.       TabIndex        =   7
  23.       Top             =   1680
  24.       Width           =   1212
  25.    End
  26.    Begin VB.TextBox txtUserID 
  27.       BackColor       =   &H00FFFFFF&
  28.       Height          =   285
  29.       Left            =   960
  30.       TabIndex        =   5
  31.       Top             =   1200
  32.       Width           =   3495
  33.    End
  34.    Begin VB.TextBox txtPassword 
  35.       BackColor       =   &H00FFFFFF&
  36.       Height          =   285
  37.       Left            =   960
  38.       TabIndex        =   3
  39.       Top             =   720
  40.       Width           =   3495
  41.    End
  42.    Begin VB.CommandButton cmdQuit 
  43.       Caption         =   "&Cancel"
  44.       Height          =   315
  45.       Left            =   3720
  46.       TabIndex        =   2
  47.       Top             =   1680
  48.       Width           =   735
  49.    End
  50.    Begin VB.TextBox txtName 
  51.       BackColor       =   &H00FFFFFF&
  52.       Height          =   285
  53.       Left            =   960
  54.       TabIndex        =   1
  55.       Top             =   240
  56.       Width           =   3495
  57.    End
  58.    Begin VB.Label lblDBName 
  59.       Caption         =   "biblio1.mdb"
  60.       Height          =   252
  61.       Left            =   0
  62.       TabIndex        =   8
  63.       Top             =   1560
  64.       Visible         =   0   'False
  65.       Width           =   852
  66.    End
  67.    Begin VB.Label Label3 
  68.       Alignment       =   1  'Right Justify
  69.       Caption         =   "&UserID:"
  70.       Height          =   252
  71.       Left            =   0
  72.       TabIndex        =   6
  73.       Top             =   1200
  74.       Width           =   852
  75.    End
  76.    Begin VB.Label Label2 
  77.       Alignment       =   1  'Right Justify
  78.       Caption         =   "&Password"
  79.       Height          =   252
  80.       Left            =   0
  81.       TabIndex        =   4
  82.       Top             =   720
  83.       Width           =   852
  84.    End
  85.    Begin VB.Label Label1 
  86.       Alignment       =   1  'Right Justify
  87.       Caption         =   "&Name"
  88.       Height          =   252
  89.       Left            =   0
  90.       TabIndex        =   0
  91.       Top             =   240
  92.       Width           =   852
  93.    End
  94. End
  95. Attribute VB_Name = "frmSecured"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Option Explicit
  99.  
  100.  
  101. Private Sub cmdQuit_Click()
  102.     End
  103. End Sub
  104.  
  105. 'To activate security, must have a secure.ini file
  106. 'in the application directory
  107.  
  108. Private Sub cmdLogin_Click()
  109.     'Make a temporary connection to verify database
  110.     Dim secureDB As Database
  111.     Dim secureRS As Recordset
  112.     Dim response As Integer
  113.     
  114.     On Error GoTo CannotOpen
  115.     Set secureDB = OpenDatabase(lblDBName.Caption, , , "UID=srumele")
  116.     Set secureRS = secureDB.OpenRecordset("All Titles")
  117.     
  118.     lblDBName.Caption = "Valid"
  119.     Me.Hide
  120.     
  121. OuttaHere:
  122.     Set secureDB = Nothing
  123.     Set secureRS = Nothing
  124.     Exit Sub
  125.     
  126. CannotOpen:
  127.     response = MsgBox("Could not connect to the database. Try again?", _
  128.         vbYesNo + vbCritical, "Login Problem")
  129.     Select Case response
  130.         Case vbYes
  131.             'Let them try again
  132.             Resume OuttaHere
  133.         Case Else
  134.             'User doesn't want to try again
  135.             Set secureDB = Nothing
  136.             Set secureRS = Nothing
  137.             End
  138.     End Select
  139. End Sub
  140.  
  141.  
  142.  
  143.  
  144.  
  145. Private Sub Form_Load()
  146.     Dim objUser As User
  147.     Dim PID As String
  148.     PID = "tempUser"
  149.     
  150. '    DBEngine.IniPath = App.Path & "\secure.ini"
  151. '    'DBEngine.DefaultUser = "Admin"
  152. '    'DBEngine.DefaultPassword = ""
  153. '    DBEngine.DefaultUser = "JoeAdmin"
  154. '    DBEngine.DefaultPassword = "Not"
  155. '    Set objUser = DBEngine.Workspaces(0).CreateUser("Don Kiely", PID)
  156. '    objUser.Password = "PaulWalrus"
  157. '    DBEngine.Workspaces(0).Users.Append objUser
  158. '    objUser.Groups.Append objUser.CreateGroup("Users")
  159.     
  160.     'DBEngine.IniPath = "d:\winword\writing\database\ole\secure.ini"
  161.     'Set objUser = Workspaces(0).CreateUser("Don Kiely", PID)
  162.     'objUser.Password = "PaulWalrus"
  163.     'Workspaces(0).Users.Append objUser
  164.     'objUser.Groups.Append objUser.CreateGroup("Users")
  165.     
  166.     'Center the form
  167.     Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  168.     
  169. End Sub
  170.  
  171.  
  172.  
  173.